home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / MENUPRNT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  4.6 KB  |  125 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************** GRAPHICS PRINT ROUTINE -- BASIC *************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN                      80 COLUMN GRAPHICS PRINTOUT                        OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN     This program will make a graphics printout of screen to a EPSON     OPEN
  7. 24  'OPEN GRAFTRAK or GEMINI 10/15 printer. The quality and detail of the print   OPEN
  8. 26  'OPEN are excellent.  Simply insert desired printout text in between lines    OPEN
  9. 28  'OPEN 510  and  830.  You may add or subtract lines as desired.  To get an    OPEN
  10. 30  'OPEN idea of the amount of text you can put in the designated program area,  OPEN
  11. 31  'OPEN run this program. It prints out the 160k Blueberry Pie a la Mode disk   OPEN
  12. 32  'OPEN menu.  You can input any data you want into the appropriate lines.      OPEN
  13. 34  'OPEN     Before you run the program, ascertain that your printer is on-line  OPEN
  14. 35  'OPEN and the paper is about five spaces below the perforation. PC-ADD.BAS    OPEN
  15. 36  'OPEN is similar, allowing EITHER a 40 or 80 column display. When building    OPEN
  16. 37  'OPEN up the menu or test, remove the REM marks from lines 505 and 830. This  OPEN
  17. 38  'OPEN will permit you to run the program for test without a printout.         OPEN
  18. 39  'OPEN     This program, in whole or in part, may be used without license or   OPEN
  19. 40  'OPEN attribution.   G I N A C O    -  1983.                  REV 5.2/320     OPEN
  20. 41  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  21. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  22. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  23. 60  FOR I=1 TO 10:KEY I,"":NEXT
  24. 110  CLS
  25. 120  SCREEN 0,0,0
  26. 130  WIDTH 80
  27. 140  CLEAR
  28. 150  KEY OFF
  29. 160  DEFINTA,Q,F,I,E,H,K,W
  30. 170  DIM E%(200)
  31. 180  Q% = 0
  32. 190  F% = 0
  33. 200  E% = 0
  34. 210  I% = 0
  35. 220  W% = 0
  36. 230  H% = 0
  37. 240  K% = 0
  38. 250  A$ = ""
  39. 280  SCREEN 1
  40. 290  WIDTH 80
  41. 300  ' ******* THE MESSAGE TO PRINT STARTS HERE ** ADD LINES AS NEEDED *******
  42. 310  ' ******* PRINT YOUR BORDER AND THEN PUT IN TEST WITH LOCATE " " ********
  43. 320  LOCATE 2,2
  44. 330  FOR I% = 1 TO 38
  45. 340    PRINT CHR$(17)CHR$(16);
  46. 350  NEXT
  47. 360  FOR I% = 2 TO 23
  48. 370    LOCATE I%,2
  49. 380    PRINT CHR$(17)CHR$(16)
  50. 390    LOCATE I%,78
  51. 400    PRINT CHR$(17)CHR$(16)
  52. 410  NEXT
  53. 420  LOCATE 23,2
  54. 430  FOR I% = 1 TO 38
  55. 440    PRINT CHR$(17)CHR$(16);
  56. 450  NEXT
  57. 460  LOCATE 4,10
  58. 470  PRINT CHR$(3)
  59. 480  LOCATE 4,70
  60. 490  PRINT CHR$(4)
  61. 500  LOCATE 4,31
  62. 505  'GOTO 505
  63. 510  PRINT CHR$(34)"BIG BLUE" CHR$(34)" berry Pie"
  64. 520  LOCATE 5,27
  65. 530  PRINT "          a la Mode"
  66. 540  LOCATE 7,28
  67. 550  PRINT "BASIC UTILITIES & PROGRAMS"
  68. 560  LOCATE 8,5
  69. 570  LOCATE 9,5
  70. 580  PRINT "AlphaHex.Bas  1   Bluebery.Bas  2   BlueMenu.Bas   3   BoxInBox.Bas   4"
  71. 590  LOCATE 10,5
  72. 600  PRINT "BoxInBox.Clr  5   Calulate.Bas  6   ChekForm.Bas   7   Circle  .Gra   8"
  73. 610  LOCATE 11,5
  74. 620  PRINT "Compound.Bas  9   D&CForm .Bas  10  EasyWord.Bas   11  Epsonset.Bas  12"
  75. 630  LOCATE 12,5
  76. 640  PRINT "EscKey  .Bas  13  FileDate.Bas  14  GasForm .Bas   15  HeadCln .Bas  16"
  77. 650  LOCATE 13,5
  78. 660  PRINT "HexPrint.Bas  17  HexSay  .Bas  18  IBMLabel.Bas   19  KeySet  .Bas  20"
  79. 670  LOCATE 14,5
  80. 680  PRINT "Lpt12Set.Bas  21  NecLabel.Bas  22  NiceList.Bas   23  PC-Add  .Gra  24"
  81. 690  LOCATE 15,5
  82. 700  PRINT "PeekPrnt.Bas  25  PrntCall.Bas  26  ProgHead.Bas   27  QuickBox.Bas  28"
  83. 710  LOCATE 16,5
  84. 720  PRINT "RandSeed.Bas  29  ShowBox .Bas  30  Startup .Bas   31  Startkup.Clr  32"
  85. 730  LOCATE 17,5
  86. 740  PRINT "TestWrit.Bas  33  TimeShow.Bas  34  WorkFile.Bas   35  YesOrNo .Bas  36"
  87. 750  LOCATE 18,5
  88. 760  PRINT "ZipClear.Bas  37  Chr$Prnt.Bas  38  Bluebery.Doc   39  BlueBry2.Doc  40"
  89. 770  LOCATE 19,5
  90. 780  PRINT "TestWrit.Doc  41  WorkFile.Dat  42  Sample  .Twd   43  MenuPrnt.Bas  44"
  91. 790  LOCATE 21,10:PRINT CHR$(5)
  92. 800  LOCATE 21,34:PRINT"MAKE SELECTION"
  93. 810  LOCATE 21,70
  94. 820  PRINT CHR$(6)
  95. 830  'GOTO 830
  96. 840  ' ****** END OF THE TEXT/GRAPHIC INPUT AREA ** ADD LINES AS NEEDED *****
  97. 850  ' ****************  GRAPHICS SCREEN/PRINT ROUTINE **********************
  98. 860  ' ********* WILL PRINT WITH EPSON GRAFTEX OR GEMENI STAR ***************
  99. 870  LPRINT START.DSTRIKE$;
  100. 880  WIDTH "LPT1:",255
  101. 890  DEF SEG = - 18432
  102. 900  LPRINT CHR$(13); CHR$(10); CHR$(27); CHR$(65); CHR$(8); CHR$(10);
  103. 910  FOR I% = 0 TO 79
  104. 920  ' ********************* SET BI-IMAGE-COLUMN-SCAN MODE ********************
  105. 930    LPRINT CHR$(10); CHR$(27); CHR$(76); CHR$(32); CHR$(3);
  106. 940    FOR K% = 0 TO 99
  107. 950      H% = I% + (80 * K%)
  108. 960      F% = PEEK(H%)
  109. 970      Q% = PEEK(8192 + H%)
  110. 980      IF F% = 13 THEN F% = 9
  111. 990      IF Q% = 13 THEN Q% = 9
  112. 1000      E%(K%) = F%
  113. 1010      E%(K% + 100) = Q%
  114. 1020    NEXT
  115. 1030    FOR K% = 99 TO 0 STEP - 1
  116. 1040      LPRINT STRING$(4,E%(K% + 100)); STRING$(4,E%(K%));
  117. 1050    NEXT
  118. 1060  NEXT
  119. 1070  LPRINT CHR$(27); CHR$(64)
  120. 1080  SCREEN 0,0,0
  121. 1090  WIDTH 80
  122. 1100  END
  123. 65000  '  ************************* SAVE ROUTINE ****************************
  124. 65100  SAVE"B:MENUPRNT.BAS"
  125.